home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / multimed / qtw111 / samples / eachpic.frm < prev    next >
Text File  |  1993-01-13  |  1KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form frmEachPic 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ControlBox      =   0   'False
  5.    Height          =   2805
  6.    Icon            =   EACHPIC.FRX:0000
  7.    Left            =   1035
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2400
  12.    ScaleWidth      =   2700
  13.    Top             =   1140
  14.    Visible         =   0   'False
  15.    Width           =   2820
  16.    Begin Timer tmrPicture 
  17.       Left            =   780
  18.       Top             =   960
  19.    End
  20.    Begin QTPicture QTPicture1 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       Height          =   495
  24.       Left            =   0
  25.       PictureName     =   "(none)"
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   1215
  29.    End
  30. End
  31. Option Explicit
  32.  
  33. Sub QTPicture1_Click ()
  34. '   Stop the program when the user clicks on the Picture
  35.     End
  36. End Sub
  37.  
  38. Sub tmrPicture_Timer ()
  39. '   Beep
  40.     PictureNum = PictureNum + 1
  41.     ShowPicture
  42. End Sub
  43.  
  44.